home *** CD-ROM | disk | FTP | other *** search
/ 1st Multimedia Mac Shareware / Multimedia Shareware CD-ROM - BetaCorp.iso / StackToolsƒ / HyperTalkRefer / Shift Window / cards.xml < prev    next >
Encoding:
Text File  |  1992-08-13  |  2.7 KB  |  32 lines
  1. card_3478.xml
  2. <?xml version="1.0" encoding="utf-8" ?>
  3. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  4. <card>
  5.     <id>3478</id>
  6.     <filler1>0</filler1>
  7.     <cantDelete> <false /> </cantDelete>
  8.     <showPict> <true /> </showPict>
  9.     <dontSearch> <false /> </dontSearch>
  10.     <owner>2619</owner>
  11.     <link rel="stylesheet" type="text/css" href="stylesheet_2279.css" />
  12.     <content>
  13.         <layer>background</layer>
  14.         <id>7</id>
  15.         <text>Shift Window</text>
  16.     </content>
  17.     <content>
  18.         <layer>background</layer>
  19.         <id>1</id>
  20.         <text>--SHIFT WINDOW (for MultiFinder users) [Mac Plus, SE, II]
  21. --These scripts move the card window 
  22. --to the bottom of the Mac screen, so you can see the Finder.
  23. --After installing the scripts, you 
  24. --just Shift-Click anywhere on the background of your Home card
  25. --
  26. --Installation Procedure:
  27. --There are two scripts here. 
  28. --1.  Copy the first one and paste it
  29. --     into the Background Script of your Home card. Click OK.
  30. --2.  Copy the second one and paste it into the Stack script of
  31. --¬†¬†¬†your Home stack, immediately after the line: on startUp.
  32. --3.¬†Quit HyperCard and run it again. 
  33. --4.  Now, whenever you Shift-Click on the background of your
  34. --¬†¬† Home card, the card window will jump to the bottom of the
  35. --¬†¬† screen out of your way so you can work on other windows.
  36. --¬†¬† To get it back, just Shift-Click again on the background of
  37. --¬†¬† the Home Card (not on the Title Bar).
  38.  
  39. --Script 1 (Paste this into the Background script of your Home Card)
  40.  
  41. on mouseUp
  42.   global defaultCWLoc
  43.   --defaultCWLoc (default card window location) is initialized
  44.   --in the Home Stack script and handled by "onStartup".
  45.   if the shiftKey is not down then
  46.     pass mouseUp --just in case another object needs the mouseUp
  47.     exit mouseUp
  48.   end if
  49.   if defaultCWLoc is "0,0" then put "0,335" into outaMyWay --Mac Plus & SE
  50.   if defaultCWLoc is "64,69" then put "64,473" into outaMyWay -- Mac II
  51.   get loc of card window
  52.   if it is not defaultCWLoc then
  53.     show card window at defaultCWLoc
  54.     exit mouseUp
  55.   end if
  56.   show card window at outaMyWay --from which you Shift-Click in the
  57.   -- background of the Home card to get it back!
  58. end mouseUp
  59. --end of the Shift Window script that goes into the Background
  60. --script of your Home card. 
  61.  
  62. --***********************
  63.  
  64. -- Script 2:  Now, paste the following two lines into
  65. --the Stack script of your Home Stack, immediately after the
  66. --words "on startUp"
  67.  
  68.   global defaultCWLoc -- for Shift Window
  69.   put the loc of card window into defaultCWLoc
  70.  
  71. --End of the Shift Window scripts
  72. --Paul Foraker x5172
  73.  
  74.  
  75.  
  76. </text>
  77.     </content>
  78.     <content>
  79.         <layer>background</layer>
  80.         <id>2</id>
  81.         <text>Shift Window scripts
  82. (revised for Mac Plus,
  83. Mac SE, and Mac II)
  84.  
  85.  
  86.  
  87. </text>
  88.     </content>
  89.     <name></name>
  90.     <script></script>
  91. </card>
  92.  
  93.  
  94.